home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 2 / CU Amiga Magazine's Super CD-ROM 02 (1996)(EMAP Images)(GB)[!][issue 1996-04].iso / magazine / amiga_e / jrh-rkrm-partone / exec_library / semaphores / semaphore.e < prev   
Text File  |  1995-03-31  |  290b  |  14 lines
  1. -> semaphore.e - Exec semaphore example
  2.  
  3. MODULE 'exec/semaphores'
  4.  
  5. PROC main()
  6.   DEF lockSemaphore:ss
  7.   InitSemaphore(lockSemaphore)
  8.   ObtainSemaphore(lockSemaphore)   -> Task now owns the semaphore.
  9.  
  10.   -> ...
  11.  
  12.   ReleaseSemaphore(lockSemaphore)  -> Task has released the semaphore.
  13. ENDPROC
  14.